home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / palis102.lha / Palis / src / myfunc.asm < prev    next >
Assembly Source File  |  1992-09-02  |  477b  |  29 lines
  1. *
  2. *    ·C·O·D·E·X· ·D·E·S·I·G·N· ·S·O·F·T·W·A·R·E·
  3. *    presents
  4. *
  5. *    Palis
  6. *
  7. *    FILE:    MyFunc.asm (for AsmOne)
  8. *    TASK:    do all that asm stuff
  9. *
  10. *    (c)1995 by Hans Bühler
  11. *
  12.  
  13.     XDEF    __JUMPTOOLD    ; used to jump into the old one... see Main.c for more...
  14.  
  15. ;
  16. ; oldfunc = JUMPTOOLD(    lib,    (A1) struct Library *
  17. ;            off,    (A0) WORD
  18. ;            entry    (D0) APTR
  19. ;            bsFunc    (A2) APTR (original func to jump-in)
  20. ;             )
  21. ;
  22.  
  23. __JUMPTOOLD:
  24.     movem.l    a4/a6,-(sp)
  25.     move.l    4.w,a6
  26.     jsr    (a2)
  27.     movem.l    (sp)+,a4/a6
  28.     rts
  29.